60100 POKE211,X:POKE214,Y:SYS58640:IFLEN(A$)=0THENRETURN
60105 FOR QU=1 TO LEN(A$)
60110 B$=MID$(A$,QU,1)
60115 PRINTB$""B$"[146]";
60120 NEXT
60130 RETURN